home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcgames.arc / WILDCAT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-09-14  |  10.1 KB  |  297 lines
  1. 10  'Last Update - 7/17/82:AM:A.Vanchura
  2. 20  FOR A=1 TO 9:ON KEY(A) GOSUB 2340:KEY(A) ON:NEXT
  3. 30  ON KEY(10) GOSUB 2670
  4. 40  SCREEN 0,0,0:WIDTH 80:COLOR 3,0,0:XX=1:YY=1
  5. 50  KEY OFF:LOCATE 1,1,0
  6. 60  CLS:DEFSNG A-Y:DEFSTR Z:DIM Z(10),HIT(3,40),PAY(20,5,3),MAP(100,3),WELL(10)
  7. 70  RANDOMIZE(VAL(RIGHT$(TIME$,2)))
  8. 80  RANDOMIZE(RND*30000)
  9. 90  ZUM="$$########,.##"
  10. 100  CSH=1E+06
  11. 110  GOSUB 2350:GOSUB 2020
  12. 120  CHS=0
  13. 130  GOSUB 1770
  14. 140  GOSUB 2710
  15. 150  LOCATE 24,28:COLOR 14,0:PRINT"Please Pick A Drill Site.";:COLOR 3,0
  16. 160  Z=INKEY$:IF (Z<"A" OR Z>"J") AND (Z<"a" OR Z>"j") THEN 160
  17. 170  IF Z>"J" THEN Z=CHR$(ASC(Z)-32):A=ASC(Z)-65 ELSE A=ASC(Z)-65
  18. 180  PRINT"  "Z;
  19. 190  Z=INKEY$:IF Z="" THEN 190
  20. 200  IF Z<"0" OR Z>"9" THEN LOCATE 24,28:PRINT SPC(50):GOTO 150
  21. 210  B=VAL(Z):PRINT Z;
  22. 220  C=A*10+B
  23. 230  IF MAP(C,0)=2 OR MAP(C,0)=1 THEN LOCATE 24,1:PRINT SPC(79);:GOTO 150
  24. 240  GOSUB 1590
  25. 250  IF YES THEN GOSUB 280
  26. 260  IF CHS<10 THEN 130
  27. 270  GOTO 2750
  28. 280  CLS:LOCATE 21,1:PRINT STRING$(80,178)
  29. 290  COLOR 12,0
  30. 300  LOCATE 9,40:PRINT      "OPEN"
  31. 310  LOCATE 10,35:PRINT"CSRLINPOINTPOINTPOINTPOINTCSRLINPOINTPOINTPOINTPOINTCSRLIN"
  32. 320  LOCATE 11,35:PRINT"  CSRLINPOINT OPEN POINTCSRLIN  "
  33. 330  LOCATE 12,35:PRINT"  CSRLIN<0xDF!>CSRLINOPENCSRLIN<0xDF!>CSRLIN  "
  34. 340  LOCATE 13,35:PRINT" CSRLIN<0xDF!>POINTCSRLINOPENCSRLINPOINT<0xDF!>CSRLIN "
  35. 350  LOCATE 14,35:PRINT" CSRLINCSRLIN<0xDF!> OPEN <0xDF!>CSRLINCSRLIN "
  36. 360  LOCATE 15,35:PRINT"POINTCSRLINPOINT  OPEN  POINTCSRLINPOINT"
  37. 370  LOCATE 16,35:PRINT"CSRLIN <0xDF!>CSRLINPOINTOPENPOINTCSRLIN<0xDF!> CSRLIN"
  38. 380  LOCATE 17,35:PRINT"CSRLIN   CSRLINCSRLINCSRLIN   CSRLIN"
  39. 390  LOCATE 18,34:PRINT"CSRLIN<0xDF!> POINTCSRLIN<0xDF!>OPEN<0xDF!>CSRLINPOINT <0xDF!>CSRLIN"
  40. 400  LOCATE 19,34:PRINT"CSRLINPOINTCSRLIN<0xDF!>  OPEN  <0xDF!>CSRLINPOINTCSRLIN"
  41. 410  LOCATE 20,34:PRINT"CSRLIN<0xDF!>    OPEN    <0xDF!>CSRLIN"
  42. 420  LOCATE 21,40:PRINT     "OPEN"
  43. 430  COLOR 2,0
  44. 440  LOCATE 1,19:PRINT"Potential Pay Zone   :";
  45. 450  COLOR 15,0:PRINT SZN"To"EZN"Ft.":COLOR 2,0
  46. 460  LOCATE 2,25:PRINT"Cost To Drill Per Ft : ";
  47. 470  COLOR 15,0:PRINT USING "$$#.##";30:COLOR 2,0
  48. 480  MAP(C,0)=1:CSF=SZN*30:DT=SZN+500
  49. 490  IF CSH-CSF<0 THEN OOM=1:YRN(CHS+1)=-(CSH):GOTO 2750
  50. 500  D=1:CHS=CHS+1
  51. 510  IF CSH-CSF<0 THEN OOM=1:YRN(CHS)=-(CSH):GOTO 2750
  52. 520  COLOR 2,0:LOCATE 3,25:PRINT"Cost So Far ";
  53. 530  COLOR 15,0:PRINT USING ZUM;CSF:COLOR 2,0
  54. 540  LOCATE 4,25:PRINT"Current Depth ";
  55. 550  COLOR 15,0:PRINT DT:COLOR 3,0
  56. 560  D=D+1
  57. 570  TRY=FIX(RND*40)+1
  58. 580  PAYOFF=HIT(TYPE,TRY)
  59. 590  IF PAYOFF>1 THEN 930
  60. 600  LOCATE 23,1:PRINT SPC(79);
  61. 610  LOCATE 24,1:PRINT SPC(79);
  62. 620  LOCATE 23,32:PRINT"No Show At";:PRINT USING " ##,### ";DT;:PRINT"Feet.";
  63. 630  IF D<3 THEN 660
  64. 640  LOCATE 24,28:PRINT"You Must Try A New Well Sight";
  65. 650  FOR X=1 TO 4000:NEXT:GOTO 680
  66. 660  COLOR 13,0:LOCATE 24,27:PRINT"Do You Wish To Go Deeper? <Y/N>";:COLOR 3,0
  67. 670  GOSUB 1720:IF YES THEN 700
  68. 680  YRN(CHS)=-CSF
  69. 690  OPD=0:GSP=0:FRC=0:OPN=0:GOTO 1180
  70. 700  LOCATE 23,1:PRINT SPC(79);
  71. 710  LOCATE 24,1:PRINT SPC(79);
  72. 720  COLOR 15,0
  73. 730  LOCATE 24,27:PRINT"Strike Enter Key When Ready";
  74. 740  LOCATE 23,27:PRINT"Enter New Test Depth : ";
  75. 750  COLOR 3,0
  76. 760  Z1=""
  77. 770  Z=INKEY$:IF Z="" THEN 770
  78. 780  IF Z=CHR$(13) THEN 840
  79. 790  IF RIGHT$(Z,1)=CHR$(75) OR Z=CHR$(8) THEN 820
  80. 800  IF LEN(Z1)>6 THEN 770
  81. 810  PRINT Z;:Z1=Z1+Z:GOTO 770
  82. 820  IF LEN(Z1)<1 THEN 770
  83. 830  PRINT CHR$(29)CHR$(32)CHR$(29);:Z1=LEFT$(Z1,LEN(Z1)-1):GOTO 770
  84. 840  LOCATE 23,1,0:PRINT SPC(79);:COLOR 3,0:DPT=VAL(Z1)
  85. 850  IF DPT>=DT THEN 880
  86. 860  LOCATE 23,31:PRINT"You Must Go Deeper ";:FOR X=1 TO 4000:NEXT
  87. 870  LOCATE 23,1:PRINT SPC(79);:GOTO 740
  88. 880  IF DPT<=EZN THEN 920
  89. 890  LOCATE 24,1:PRINT SPC(79);
  90. 900  LOCATE 23,30:PRINT"You Are Past The Pay Zone";
  91. 910  FOR CC=1 TO 4000:NEXT:GOTO 700
  92. 920  CSF=CSF+30*(DPT-DT):DT=DPT:GOTO 510
  93. 930  LOCATE 23,1:PRINT SPC(79);
  94. 940  LOCATE 24,1:PRINT SPC(79);
  95. 950  LOCATE 23,27:PRINT"Oil And GAS Show At";:PRINT USING " ##### ";DT;:PRINT"Feet";
  96. 960  FRC=10*DT
  97. 970  LOCATE 24,27:PRINT"Fracture Cost Is";:PRINT USING ZUM;FRC;
  98. 980  LOCATE 25,1:PRINT SPC(79);
  99. 990  LOCATE 25,27:PRINT"Do You Want To Fracture? <Y/N>";
  100. 1000  GOSUB 1720:IF NO THEN 680
  101. 1010  HIT=FIX(FIX(RND*10)*2)+1
  102. 1020  OPD=PAY(HIT,PAYOFF,TYPE)
  103. 1030  GSP=PAY(HIT+1,PAYOFF,TYPE)*1000
  104. 1040  LOCATE 23,1:PRINT SPC(79);
  105. 1050  LOCATE 24,1:PRINT SPC(79);
  106. 1060  LOCATE 25,1:PRINT SPC(79);
  107. 1070  LOCATE 23,20:PRINT"    !!  EUREKA,  WE  STRUCK  OIL  !!"
  108. 1080  GOTO 1090
  109. 1090  LOCATE 24,19:PRINT"Well Will Produce";
  110. 1100  COLOR 15,0:PRINT USING " ### ";OPD;:COLOR 3,0
  111. 1110  PRINT"Barrels Of Oil Per Day";
  112. 1120  LOCATE 25,19:PRINT"";
  113. 1130  COLOR 15,0:PRINT USING " #,###,### ";GSP;:COLOR 3,0
  114. 1140  PRINT"Cubic Feet Of Natural Gas Per Day";
  115. 1150  OPN=(FIX(RND*75)+150)*12
  116. 1160  LOCATE 22,27:COLOR 14,0:PRINT"Strike Any Key To Continue":COLOR 3,0
  117. 1170  Z=INKEY$:IF Z="" THEN 1170
  118. 1180  COLOR 3,0:CLS
  119. 1190  LOCATE 1,20:PRINT STRING$(40,"WHILE")
  120. 1200  FOR A=2 TO 22:LOCATE A,20:PRINT"WHILE":LOCATE A,59:PRINT"WHILE":NEXT
  121. 1210  LOCATE 23,20:PRINT STRING$(40,"WHILE");
  122. 1220  LOCATE 2,26:COLOR 3,0:PRINT"***** INCOME STATEMENT *****"
  123. 1230  LOCATE 3,21:PRINT STRING$(38,"THEN")
  124. 1240  LOCATE 4,22:COLOR 15,0:PRINT"Well #"CHS
  125. 1250  LOCATE 5,38:COLOR 1:PRINT"Costs"
  126. 1260  LOCATE 6,25:COLOR 3,0:PRINT"Drilling"
  127. 1270  LOCATE 7,25:PRINT"Fracture"
  128. 1280  COLOR 1:LOCATE 8,25:PRINT"1 YR. OPER.             "
  129. 1290  TOTALCOST=OPN+FRC+CSF
  130. 1300  COLOR 3,0:LOCATE 6,40:PRINT USING ZUM;CSF
  131. 1310  LOCATE 7,40:PRINT USING ZUM;FRC
  132. 1320  COLOR 1:LOCATE 8,40:PRINT USING ZUM;OPN
  133. 1330  LOCATE 9,25:COLOR 15,0:PRINT"Total Cost"
  134. 1340  COLOR 15,0:LOCATE 9,40:PRINT USING ZUM;TOTALCOST
  135. 1350  COLOR 1:LOCATE 11,34:PRINT"Gross Income"
  136. 1360  COLOR 3,0:LOCATE 12,25:PRINT"Oil"
  137. 1370  COLOR 1:LOCATE 13,25:PRINT"Gas                  "
  138. 1380  ODS=OPD*9000:GDS=GSP*2.1
  139. 1390  GRDS=ODS+GDS
  140. 1400  RVS=(ODS+GDS)*5:WELL(CHS)=RVS
  141. 1410  LOCATE 13,40:PRINT USING ZUM;GDS
  142. 1420  COLOR 3,0:LOCATE 12,40:PRINT USING ZUM;ODS
  143. 1430  COLOR 15,0:LOCATE 14,25:PRINT"Total Income"
  144. 1440  LOCATE 14,40:PRINT USING ZUM;GRDS
  145. 1450  COLOR 1:LOCATE 15,25:PRINT"Cost          -"
  146. 1460  NTP=GRDS-TOTALCOST
  147. 1470  LOCATE 15,40:PRINT USING ZUM;TOTALCOST
  148. 1480  COLOR 15,0:LOCATE 16,25:PRINT"Net Profit"
  149. 1490  LOCATE 16,40:PRINT USING ZUM;NTP:COLOR 3,0
  150. 1500  LOCATE 18,25:PRINT"Estimated Reserves In Ground"
  151. 1510  CSH=CSH+NTP
  152. 1520  YRN(CHS)=NTP
  153. 1530  COLOR 15,0:LOCATE 19,40:PRINT USING ZUM;RVS:COLOR 3,0
  154. 1540  ADD=0:FOR A=1 TO CHS:ADD=ADD+WELL(A):NEXT
  155. 1550  LOCATE 21,25:PRINT"Total Reserves So Far "
  156. 1560  COLOR 15,0:LOCATE 22,40:PRINT USING ZUM;ADD:COLOR 3,0
  157. 1570  COLOR 14,0:LOCATE 24,27:PRINT"Strike Any Key To Continue";
  158. 1580  COLOR 3,0:Z=INKEY$:IF Z="" THEN 1580 ELSE RETURN
  159. 1590  CLS:LOCATE 1,28:COLOR 13,0
  160. 1600  PRINT       "KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  161. 1610  LOCATE 2,28:PRINT"OPEN    GEOLOGY REPORT     OPEN"
  162. 1620  LOCATE 3,28:PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD"
  163. 1630  LOCATE 4,20:PRINT"KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE"
  164. 1640  FOR X=5 TO 11:LOCATE X,20:PRINT"OPEN":LOCATE X,60:PRINT"OPEN"
  165. 1650  NEXT
  166. 1660  LOCATE 12,20:PRINT"SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD":COLOR 3,0
  167. 1670  SZN=MAP(C,1):EZN=MAP(C,2):TYPE=MAP(C,3)
  168. 1680  LOCATE 6,30:PRINT"Potential Pay Zone :"
  169. 1690  LOCATE 7,29:COLOR 15,0:PRINT SZN"To"EZN"Ft.":COLOR 3,0
  170. 1700  LOCATE 9,26:PRINT"Target Zone Starts At"SZN+500"Ft."
  171. 1710  LOCATE 14,27:COLOR 15,0:PRINT"Do You Wish To Drill? <Y/N>";:COLOR 3,0
  172. 1720  Z=INKEY$:IF Z="" THEN 1720
  173. 1730  IF Z="Y" OR Z="y" THEN YES=1:NO=0:RETURN
  174. 1740  IF Z="N" OR Z="n" THEN NO=1:YES=0:RETURN
  175. 1750  GOTO 1720
  176. 1760  FOR X=1 TO 2000:NEXT X:RETURN
  177. 1770  COLOR 15,0:CLS
  178. 1780  LOCATE 1,26:PRINT"B O O M   C O U N T Y   U S A
  179. 1790  B1=179:B2=195:B3=197:B4=180:B5=192:B6=193:B7=217:B8=218:B9=194:B0=191
  180. 1800  DEF SEG=0
  181. 1810  IF (PEEK(1040) AND 48)=48 THEN DEF SEG=45056 ELSE DEF SEG=47104
  182. 1820  A=178:LOCATE A\160+1,10:PRINT STRING$(60,196)
  183. 1830  POKE A,B8:POKE A+12,B9:POKE A+24,B9:POKE A+36,B9:POKE A+48,B9:POKE A+60,B9:     POKE A+72,B9:POKE A+84,B9:POKE A+96,B9:POKE A+108,B9:POKE A+120,B0
  184. 1840  FOR A=338 TO 3058 STEP 160
  185. 1850  POKE A,B1:POKE A+12,B1:POKE A+24,B1:POKE A+36,B1:POKE A+48,B1:POKE A+60,B1:     POKE A+72,B1:POKE A+84,B1:POKE A+96,B1:POKE A+108,B1:POKE A+120,B1
  186. 1860  A=A+160
  187. 1870  LOCATE A\160+1,10:PRINT STRING$(60,196)
  188. 1880  POKE A,B2:POKE A+12,B3:POKE A+24,B3:POKE A+36,B3:POKE A+48,B3:POKE A+60,B3:     POKE A+72,B3:POKE A+84,B3:POKE A+96,B3:POKE A+108,B3:POKE A+120,B4
  189. 1890  NEXT
  190. 1900  POKE A,B1:POKE A+12,B1:POKE A+24,B1:POKE A+36,B1:POKE A+48,B1:POKE A+60,B1:     POKE A+72,B1:POKE A+84,B1:POKE A+96,B1:POKE A+108,B1:POKE A+120,B1
  191. 1910  A=A+160
  192. 1920  LOCATE A\160+1,10:PRINT STRING$(60,196)
  193. 1930  POKE A,B5:POKE A+12,B6:POKE A+24,B6:POKE A+36,B6:POKE A+48,B6:POKE A+60,B6:     POKE A+72,B6:POKE A+84,B6:POKE A+96,B6:POKE A+108,B6:POKE A+120,B7
  194. 1940  COLOR 3,0:D=0
  195. 1950  FOR A=3 TO 21 STEP 2
  196. 1960      C=0:FOR B=13 TO 67 STEP 6
  197. 1970          IF MAP(D,0)=0 THEN LOCATE A,B:PRINT Z(A/2-1)  RIGHT$(STR$(C),1)
  198. 1980      D=D+1:C=C+1:NEXT
  199. 1990  NEXT
  200. 2000  LOCATE 23,28:PRINT"Cash Assets";:PRINT USING ZUM;CSH
  201. 2010  RETURN
  202. 2020  LOCATE 12,30:PRINT"ONE MOMENT PLEASE";
  203. 2030  FOR C=0 TO 100:IF RND<0.6 THEN MAP(C,0)=2:GOTO 2070
  204. 2040  IF RND<0.4 THEN MAP(C,1)=4000:MAP(C,2)=7000:MAP(C,3)=1:GOTO 2070
  205. 2050  IF RND<0.6 THEN MAP(C,1)=7500:MAP(C,2)=10000:MAP(C,3)=2:GOTO 2070
  206. 2060  MAP(C,1)=10500:MAP(C,2)=15000:MAP(C,3)=3:GOTO 2070
  207. 2070  NEXT
  208. 2080  FOR A=1 TO 10:READ Z(A):NEXT
  209. 2090  FOR B=1 TO 3:FOR A=1 TO 40:READ HIT(B,A):NEXT A,B
  210. 2100  FOR C=1 TO 3
  211. 2110   FOR B=1 TO 5
  212. 2120    FOR A=1 TO 20
  213. 2130     READ PAY(A,B,C)
  214. 2140  NEXT A,B,C
  215. 2150  DATA A,B,C,D,E,F,G,H,I,J
  216. 2160  DATA 1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5
  217. 2170  DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,5,5,5,5
  218. 2180  DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,5,5
  219. 2190  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  220. 2200  DATA 54,0,13,240,0,370,112,0,41,600,0,514,70,112,95,0,0,301,62,98
  221. 2210  DATA 37,0,12,128,0,131,19,50,0,167,6,114,42,0,36,20,0,185,39,11
  222. 2220  DATA 0,75,15,32,21,0,7,39,0,78,3,67,17,0,0,59,0,133,22,11
  223. 2230  DATA 0,22,8,11,2,0,6,13,0,61,3,36,8,2,0,60,4,0,0,24
  224. 2240  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  225. 2250  DATA 0,461,123,0,78,502,124,120,270,0,0,960,41,581,108,333,0,1333,121,380
  226. 2260  DATA 0,197,51,0,22,142,37,65,51,0,17,131,0,233,41,69,19,158,65,0
  227. 2270  DATA 0,141,13,88,30,0,6,106,15,53,28,0,21,50,0,137,25,83,49,0
  228. 2280  DATA 7,0,4,34,0,47,9,25,17,0,11,30,2,6,11,0,3,0,4,13
  229. 2290  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  230. 2300  DATA 276,620,29,1500,282,0,0,4400,241,1200,35,1400,860,0,80,997,240,0,105,           2200
  231. 2310  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  232. 2320  DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  233. 2330  DATA 0,200,40,0,23,90,41,33,0,187,32,104,0,202,43,0,0,281,27,104
  234. 2340  RETURN
  235. 2350  CLS
  236. 2360  LOCATE 1,1:PRINT STRING$(80,219)
  237. 2370  FOR A=2 TO 22
  238. 2380   LOCATE A,1:PRINT"CSRLIN":LOCATE A,80:PRINT"CSRLIN"
  239. 2390  NEXT
  240. 2400  LOCATE 23,1:PRINT STRING$(80,219);
  241. 2410  LOCATE 3,24:COLOR 15,0:PRINT"* * * W I L D C A T T E R * * *
  242. 2420  LOCATE 12,23:PRINT"Would You Like Instructions? <Y/N>":COLOR 3,0           
  243. 2430  GOSUB 1720:IF NO THEN CLS:RETURN
  244. 2440  LOCATE 4,10:PRINT"
  245. 2450  LOCATE 5,15:PRINT"In this game,  you own an  independent  oil and gas
  246. 2460  LOCATE 6,15:PRINT"drilling company.  First you must select a drilling
  247. 2470  LOCATE 7,15:PRINT"sight from the map of Boom County.  After you enter
  248. 2480  LOCATE 8,15:PRINT"your sight,  you  will  be  shown a  geology report
  249. 2490  LOCATE 9,15:PRINT"indicating the  potential pay zone.  The deeper you
  250. 2500  LOCATE 10,15:PRINT"drill a well,  the less  chance you have of finding
  251. 2510  LOCATE 11,15:PRINT"oil or gas,  but the chance of finding huge strikes
  252. 2520  LOCATE 12,15:PRINT"increases. Shallow wells are more likely to produce.
  253. 2530  LOCATE 13,10:PRINT"
  254. 2540  LOCATE 14,15:PRINT"If after drilling to the  potential pay zone and no
  255. 2550  LOCATE 15,15:PRINT"oil or gas is indicated, you may choose to drill to
  256. 2560  LOCATE 16,15:PRINT"ONE  other depth at that sight.  If you do show oil
  257. 2570  LOCATE 17,15:PRINT"or gas, you must  FRACTURE a well before production.
  258. 2580  LOCATE 18,10:PRINT"
  259. 2590  LOCATE 18,15:PRINT"We have loaned you  $1,000,000 to begin exploration.
  260. 2600  LOCATE 19,15:PRINT"That is your credit limit.  When you have completed
  261. 2610  LOCATE 20,15:PRINT"ten wells or run out of operating capital, you will
  262. 2620  LOCATE 21,15:PRINT"be given a final statement of operations. GOOD LUCK
  263. 2630  COLOR 15,0
  264. 2640  LOCATE 25,28:PRINT"Strike Any Key To Continue";
  265. 2650  COLOR 3,0
  266. 2660  Z=INKEY$:IF Z="" THEN 2660 ELSE CLS:RETURN
  267. 2670  KEY(10) OFF:XX=CSRLIN:YY=POS(0)
  268. 2680  LOCATE 25,1:PRINT SPC(79);:COLOR 15,0
  269. 2690  LOCATE 25,22:PRINT"Do You Wish To Leave This Game? <Y/N>";
  270. 2700  GOSUB 1720:IF YES THEN 2740
  271. 2710  LOCATE 25,1:PRINT SPC(79);:COLOR 0,7:LOCATE 25,24
  272. 2720  PRINT" Strike <F10> To Leave This Game ";:COLOR 3,0
  273. 2730  LOCATE XX,YY:KEY(10) ON:RETURN
  274. 2740  RUN"MENU
  275. 2750  CLS
  276. 2760  LOCATE 1,15:PRINT STRING$(50,"WHILE")
  277. 2770  FOR A=2 TO 22:LOCATE A,15:PRINT"WHILE":LOCATE A,64:PRINT"WHILE":NEXT
  278. 2780  LOCATE 23,15:PRINT STRING$(50,"WHILE");
  279. 2790  LOCATE 2,26:COLOR 3,0:PRINT"***** FINAL  STATEMENT *****"
  280. 2800  LOCATE 3,16:PRINT STRING$(48,"THEN")
  281. 2810  LOCATE 4,17:PRINT"Well #     1st Year  Earnings         Reserves"
  282. 2820  FOR A=1 TO 10:LOCATE ,19:PRINT USING "##";A;:PRINT SPC(10);
  283. 2830  TOTALRVS=TOTALRVS+WELL(A)
  284. 2840  PRINT USING ZUM;YRN(A);
  285. 2850  PRINT USING "    "+ZUM;WELL(A)
  286. 2860  NEXT
  287. 2870  COLOR 15,0
  288. 2880  IF OOM THEN LOCATE ,31:PRINT USING "$$#,###,###.##";-1E+06;:GOTO 2900
  289. 2890  LOCATE ,31:PRINT USING "$$#,###,###.##";CSH-1E+06;
  290. 2900  LOCATE ,POS(0)+1:PRINT USING "$$,###,###,###.##";TOTALRVS
  291. 2910  IF OOM THEN 2920 ELSE 2950
  292. 2920  LOCATE 18,23:PRINT"You Ran Out Of Money At "INT(CSH/30)"Feet.
  293. 2930  LOCATE 19,23:PRINT"You Have 30 Days To Repay Your Loan
  294. 2940  LOCATE 20,23:PRINT"Personal Checks Are Not Accepted !!
  295. 2950  LOCATE 22,23:COLOR 15,0:PRINT"Would You Like To Play Again? <Y/N>";
  296. 2960  COLOR 3,0:GOSUB 1720:IF NO THEN 2740 ELSE RUN
  297.